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TITLE $SATSSS53 SATS SYSTEM SERVICE TESTS S$SETEF (SUCC S.C.) 
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;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
;* CORPORATION. ® | 
** 7 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
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0 
0 
0 
0 
0 : FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
0 : ABSTRACT: 
0 : THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
00 : WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS53 TO TEST SUCCESSFUL 
00 : OPERATION OF THE SSETEF SYSTEM SERVICE. THE SERVICE IS INVOKED 
00 : UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 
00 + SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 
00 : OPERATION OF THE SERVICE fk EACH OF ITS ISSUANCES IS VERIFIED BY 
00 : CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 
$ ; AND EXPECTED FUNCTIONAL TTY PERFORMED. 
00 > ENVIRONMEAT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
00 DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 
09 t AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: SEP, 1977 
09 ; MODIFIED BY: | 
00 : , : VERSION | 
00 3; 01 - 
00 3 
| 
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PSY. SRETSATSSSS9.MAR: 1 
¢ : «SBTTL DECLARATIONS 
§ ; INCLUDE FILES: 


SPRVDEF ; PRI 
SPHDDEF ; PRO 


; MACROS: 


SY 


: EQUATED SYMBOLS: 
: OWN STORAGE: 


SAT 
v04 


sf AS55835 


“1386 be:83:19 LOktPee. seed 


T MO 

ak MODULE NA NAME DESCRIPTOR 

TL STRING FOR MSG1 IN SUCCOMMON.MAR 
TL STRING FOR MSG3 IN SUCCOMMON.MAR 


SaYsssss -MAR;1 
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T ATS SYSTEM SERVICE TESTS S$SET ‘ (succ 1 P=1984 00: AX/VMS eae $9 v04- Pa % SAT 
yOus600> Beck PRAT BNS pests Pn a : “ SEP. 1982 2:33 3 YUE TPSY. SRC SSATSSS «MAR; 1 = (1) Pse 
a 8 4 -PSECT meine RD, WRT ,NOEXE ,LONG 
808088 79 PRIVMASK: »BLK 1 ; ADDR OF PRIVILEGE MASK (IN PHD) 
000000C 0 80 CLUSTER: ~BL tKL 1 ; STATE ARGUMENT ON READEF SERVICE 
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.SBTTL CONDITION TABLES 

; eeeee CONDITION TABLES FOR SETEF SYSTEM SERVICE teeee 
: COND  1,NOTARG,<CLUSTER NUMBER> 

<CLUSTER nO (P (PROCESS=LOCAL)>, = 

<CLUSTER (PROCESS=LOCAL)>.= 

<CLUSTER é (COMMON) >, = 

R 3 (COMMON)>,= 

; CLUSTER 
: CLUSTER 
+ CLUSTER NUMB 
: CLUSTER 
COND 2,NULL 
COND 3, NULL 
COND 4,NULL 
COND 5,NULL 


SATSSS53,RD,WRT,EXE 
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TUP, TM_CLEANUP g-StP-19 4 803545 LOE TP ey cee TGAVSSSoS MAR: 1 - fy 
1 ea .SBTTL TM_SETUP, TM_CLEANUP 
; FUNCTIONAL DESCRIPTION: | 
Wi: TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM 
6 ; REQUIRED HOUSEKEEPING AT THE BEGINNING AND END, RESPECTIVELY, OF 
113 ; TEST MODULE EXECUTION. 
119 : CALLING SEQUENCE: 
117 : BSBW TM_SETUP BSBW TM_CLEANUP | 
118 : INPUT PARAMETERS: | 
0 1; NONE 
000 1 § + IMPLICIT INPUTS: 
4 124; 
90 125 : NONE 
$00 159 | 
00 : OUTPUT PARAMETERS: 
000 139 ; NONE | 
4 130 ; 
000 131 ; IMPLICIT OUTPUTS: | 
609 1 g : TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
44 : 3 ; ALL PRIVILEGES ACQUIRED. | 
9000 : t COMPLETION CODES: 
0900 8 : EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
009 140 ; SIDE EFFECTS: 
$09 148 : SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT | 
BR8 143 ; (VIA RSB) IF ERROR ENCOUNTERED. 
00 144: 
000 145 :-- 
000 146 | 
3 i | 
00 128 TM_SETUP:: 
3 D4 130 CLRL Re : INITIALIZE 
D4 1 CLRL OR : .. CONDITION | 
4 04 4 138 CLRL RG : ii.. TABLE 
5 D4 6 15 CLRL RS t laceee INDEX 
é 4 154 CLRL RG + lee cscee REGISTERS 
FFF3' 30 A 155 BSBu  MOD_MSG PRINT : PRINT TEST MODULE BEGIN MSG 
34 ve D 0D 1 6 MOVAL TEST _MOD_SUCC,TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
88 BF F 18 «1 INSV  #SUCTESS7#0,#3,MOD_MSG_CODE ; ADJUST STATUS CODE FOR SUCCESS | 
| 
$ 158 MODE 10, 5$, KRNL : KERNEL MODE TO ACCESS PHD 
9 '9F §=6p0 «60048 MOVL a#CTL$GL_PHD,RO GET PROCESS HEADER ADDRESS 
"EF §86969 DE O04F 160 MOVAL PHDS$Q_PRIVMSK(R9),.PRIVMASK ; GET PRIV MASK ADDRESS 
36 161 MODE FROM,5$ ; BACK TO USER MODE 
57 162 PRIV ADD, ALL ; GET ALL PRIVILEGES 


| 
| 
| 
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E END MSG 
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SATSSS53 SATS SYSTEM SERVICE TESTS SSETEF (SUCC 16-SEP-1984 00:57: AX/VMS Macro V04- 
v042000 CONDITION SUBROUTINES = SETUP AND CLEANU aed ee UETPSY. SRETSATSSSo9.MAR: 1 
BB 7 COND3:: 
05 BB RSB ; RETURN TO MAIN ROUTINE 
BC COND3_CLEANUP: : 
05 BC RSB ; RETURN TO MAIN ROUTINE 
BD COND4:: 
05 BD RS ; RETURN TO MAIN ROUTINE 
BE COND4_ CLEANUP: : 
05 oF : cons RSB ; RETURN TO MAIN ROUTINE 
05 BF § RSB ; RETURN TO MAIN ROUTINE 
£8 CONDS_CLEANUP 
05 C 8 RSB ; RETURN TO MAIN ROUTINE 
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SATSSS53 SATS SYSTEM SERVICE TESTS S$SETEF (SUCC 16-SEP-1984 00:57:38 VAX/VMS Macro V0é- Page 
$O02800 FORM. CONDS Boeri be Boras te FORLHES Bacto VOC Oe wars1 °29 
3 Pe .SBTTL FORM_CONDS 
3 tg 3 3 * FUNCTIONAL DESCRIPTION: 
C1 266: ORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT 
cI 43 : THE CURRENT EL EMERY IN EACH OF THE CONDITION TABLES. 
c] oF : CALLING SEQUENCE: 
cl a3 : BSBW FORM_CONDS 
3 3 ; INPUT PARAMETERS: 
oc1 588 : NONE 
0C1 54 ; 
oc 35 : IMPLICIT INPUTS: 
C1 3 : ; 5, : CONTAIN C RRENT CONDITION TABLE INDEX VALUES 
boc 58 : FOR CON TABLE 1,2,3,4,5, RESPECTIVELY. 
00€1 260: 142 641 = TITLE TEXT FOR CONDX TABLE 
90¢1 61 ; COND x7TAB - ELEMENT TEXT FOR CONDX TABLE 
0C1 62 ; CONDX"C = CONTEXT OF THE CONDX TABLE 
doe a7 } CONDX"E = DATA ELEMENTS OF THE CONDX TABLE 
OC] 265 ; OUTPUT PARAMETERS: 
00C1 266: 
0C1 267: NONE 
0C1 68 ; 
0C1 69 : IMPLICIT OUTPUTS: 
Bae) 03 
0C1 71 ; NONE 
00C1 es ; 
0C1 73 ; COMPLETION CODES: 
0C1 7% ; 
0C1 25 ; NONE 
0c 76 ; 
0C1 0? ; SIDE EFFECTS: 
0C1 28 ; 
0C1 79 ; NONE 
0C1 0; 
0C1 1 ;-- 
0C1 : 
oc 
C1 4 
oct 5 FORM_CONDS:: 
C1 6 $FAO_S MSG1_INP_CTL,FAO_LEN, FAO_DESC. TESTNUM 
OE 7 FORMAT CONDITIONS HEADER MSG 
FFID" 30 OE 8 BSBW  OUTPUT_MSG eae AND PRINT IT 
14 00 1 OE 9 CMPB = #COND1-C, @NULL ; IS CONDITION 1 NULL ? 
12 ES 0 BNEQU 1 : ONT INUE 
OOBF 31 oe 31 ca BRW FORM_CONDSX : YES <= SUBROUTINE 1S FINISHED 
0099999000" EF QOOO00C'EF oD E 38 MOVAL COND1_T srs ; SAVE ADDRESS OF CONDITION 1 TITLE FOR 
"EF 008 0001C*EF42 p OF 94 MOVL CONDI “Tis R2] MSG_B : SAV — ADDR OF COND 1 CURR TEXT ELi FOR 
00000000'EF 00 19 95 MOVE # &#CONDT_C,MSG_CTXT™ AVE CONDITION 1 CONTEXT FOR FAO 
1 96 MOV_VAL COND1_C, EONDT. ECR2],MSG _baTAY : GIVE COND 1 DATA VALUE TO FAO 
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0000008C "EF 
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BSBW 


20$: 


30$: 


MOVB 
MOV_VAL 
BSB 

FORM_CONDSX: 
RSB 


-SEP- :38 VAX/VMS Macro VO Page 
-SEP- 138 82 3 38 LUETPSY SRE] iret a MAR; 1 . 
WRITE_MSG2 : FORMAT AND WRITE CONDITION 1 MSG 
g ONb2"C C, #NULL : Is CONDITION 2 NULL ? 
FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
Sita atts : SAVE ADDRESS OF CONDITION 2 TITLE FOR 
COND2- TAB R3] MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR 
#COND2_C,MSG_CTXT SAVE CONDITION 2 cntent FOR FAO 
CONDE ct <EQND2. etR3), MSG_ bATAL ; GIVE COND 2 DATA VALUE TO FAO 
“MSG : FORMAT AND WR TE yfONDITION MSG 
’ CONS ¢,#NULL ; IS CONDITION L ? 
+ NO == CONTINU NUE" 
FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
COND ; SAVE ADDRESS OF CONDITION 3 TITLE FOR 
COND -Theeay MSG_B ; SAVE ADDR OF COND 3 CURR TEXT ELT FOR 
#COND3_C,MSG_CTX SAVE CONDITION 3 CONTEXT FAO 
COND3_C <EONDS. ECR4J,MSG batt : GIVE COND 3 DATA VALUE TO FAO 
WRITE -MSG ; FORMAT AND WRITE CONDITION MSG 
#CONDS_C,#NULL ; IS CONDITION 4 NULL 
FORM_CONDSX ; YES == SUBROUTINE ts” FINISHED 
CONDS_T ate A ; SAVE ADDRESS OF CONDITION 4 TITLE FOR 
CONDS The R5J,MSG_ ; SAVE ADDR OF COND 4 TEXT ELT FOR 
#COND G_€TXT SAVE CONDITION 4 CONTEXT FOR FAO 
co OND4 t at rit _ELR5S].MSG_ bata: GIVE COND 4 DATA VALUE TO FAO 
RIT ; ORMAT AND "sh CONDITION 4 MSG 
HEONDS C,#NULL : 1S CONDITIO 7% 
FO CON NDSX ; YES == SUBROU Is FINISHED 
CONDS : SAVE ADDRESS “OF NEONDIT ION 5 TITLE FOR 
COND5S CTABEREI, MSG_B ; SAVE ADDR O 5 CURR TEXT ELT FOR 
#COND5S_C,MSG_CTXT™ SAVE CONDITION 5 CONTENT 4 FAO 
CONDS -f C CONDS ECR6],MSG_ baTAY : GIVE COND 5 DATA TO FAO 
; FORMAT AND WRITE CONDITION” MSG 


; RETURN TO CALLER 
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8 3 
YSTEM SERVICE TESTS SSETEF (SUCC 16-SEP-1984 00 
=SEP=1984 04 


“TSTB FLAG 
BEQL 


FORM_CONDS 
MOVZBL COND1 _ECR2I,R8 
ASHL  #5,RB7R 
CLRL 
CLRL = R10 


COND1_ECR2],#2 


AL 
sai ECR2],#2 
MOVL. _R8,R10 

ADDL3 #31,R10,R11 


SCLREF_S EFN=R10 
CMPL BO, #SSS_ WASSET 


BEQLU 

SS_CHECK WASCLR 

ACBW R11,#1,R10,20$ 
ADDB3 = R8, RY, R10 


SSETEF_S EFN=R10 
MPL #348888. WASCLR 


MOVL #SS$_WASCLR,EXPV 
MOVL _RO,RECV 

ERR_EXIT LONG, <INCORRECT STATUS 
SREADEF _S EEN: RB. STATE=CLUSTER 
SS CHECK WASSE 

CLRL sO 

CL R7 

ADDBS #1,R9,R11 

INSV ONES, #0,R11, EXPV 


MOVL CLUSTER RECV 
CMPV R11, CLUSTER, ONES 


57:38 YAX/VMS Macro v04 
3:79 UOETBSY.SReaSA 


NO -- BYP 
$s B tan R8, NAME=TEST_MOD ame 9 3; YES <= 


é 


=a< 


9g555.MAR;1 


ae ehettind BE PRINTED ? 
YES -=- FMT & PRINT ALL CONDS FOR THIS T.C. 
GET CLUSTER NO. INTO REGISTER 

MULT BY 3 . 

INIT REG TO HOLD EVENT FLAG NO. (EFN) 
COMMON cee ee ? 

ASS THE ASSOCIATE S SERVICE 

eee CLU STER & CHECK STATUS CODE 

CLUSTER 2 ? 

YES == CLUSTER 2 INITIALLY CLEAR 


ESTAB CURRENT EFN IN REG 10 
ESTAB HIGH EFN FOR THIS CLUSTER 


CLEAR CURRENT EVENT | FLAG 
WASSET STATUS CODE ? 

YES -= GO LOOP FOR ANOTHER CLREF 
NO -- BETTER BE WASCLR, THEN 
INCREMENT TO NEXT EFN & LOOP 


COMPUTE EVENT FLAG NUMBER 


; eeeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeeee 


; SET EVENT FLAG 

CODE ag 34 CODE EXPECTED ? 
YES == CONTINUE 

: LOAD UP _ EXPECTED A 

«.+ RECEIVED VALUES, THEN EXIT 


ODE RETURNED FROM SETEF> 


READ CURRENT CLUSTER 
-+. AND CHECK i*s Sve 


S TOA AL OY ° 
.-. BYTE OPERATIONS ONT HEM 

OF Vg 3 TO COMPARE 
STAB EXPECTED VALUE FOR ... 
«+» POSSIBLE ERR_EXIT 


STAB RECEIVED VALUE AS WELL 


7 E 
; ARE ALL EXPECTED EVENT FLAGS SET ? 


$_=- GO LOOK AT SLEAR FLAGS 


BEQL 50% YE 
ERR “EXIT LONG, <EVENT FLAG(S) IN tLusTER SHOULD BE SET 


CMPB #31,R9 


NO == GENERATE ERROR & EXIT 
1S CURRENT EFN HIGHEST IN CLUSTER ? 


SATSSS53 SATS SYSTEM SERVICE TESTS S$SETEF (SUCC 19-SEP-1984 00: 57:3 VAX/VMS Macro V 4-00 Page 14 SAT 
v04= VERIFY -SEP=1984 04:32:1 Hort hey eae scares MAR; 1 (1) v04 
; 13 H 445 BEQL 60% 3 YES == THEN CLUSTER IS ALL ONES 
57 1F g A 446 SUBB3 «RO, #31, ; NO == COMPUTE NO. OF O-BITS TO COMPARE 
00 O0000008'EF 57 5B FC AG 4 CMPV Rit R7. ey USTER. #0 ; ARE ALL EV FLAGS NOT YET SET STILL CLEAR ? 
iF AD 448 BEQL 608° YES == GO LOOK AT NEXT EVENT FLAG 
~ Bee’: ERR_EXIT LONG,<EVENT FLAG(S) IN buster SHOULD NOT BE SET> 
FE 420 an NO <= GENERATE ERROR & EXIT 
FE64 59 01si«*aFsODSCOBFE 43¢ ACBB = #31, #1, R9, 308 ; INCR TO NEXT EFN IN THIS CLUSTER & LOOP 
05 0404 45 RSB ; RETURN TO CALLER 


dD 3 
EM SERVICE TESTS SSETEF (SUCC 1 mitt 4 90: 7:3 +38 AX/VMS se ¥06=09 Page 15 
UP UETPSY.SR CISATSSS MAR; 1 (1 


SATSSS53 SATS 
v04=000 VFY_C 


) 
~SBTTL VFY_ CLEANUP 
FUNCTIONAL DESCRIPTION: 


VFY ee EXECUTES SYSTEM SERVICES TO UNDO THE 
EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST 
ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY . oe N 
ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT 
ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED 
IN THE EVENT THAT VFY CLEANUP IS CALLED DURING ERROR PROCESSING, 
pOreIOrY Gletoy THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 


CALLING SEQUENCE: 


PPLE LLL LPP PPLE PEPE PPP EP EPP EES 
09.00 09 09 09 00 00 09 09 00 SI INI SII NNN NINA AAAAAAAAOAUNUIIN 
OO NAW EWN SO OONOAUES WN OOD NAU EWN OOONAUN 


| 
i++ 
| 
OVERING A SECOND ERROR. 
0 BSBW VFY_CLEANUP 
0 ; INPUT PARAMETERS: 
: ; NONE 
; : IMPLICIT INPUTS: 
0 } R2, 3, 425.6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
; cone R CON D TABLES 1 1243,4,5, RESPECTIVELY. 
0 ; CON” E’= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 
sige UE: Uathealt IME ARUIREEr neha‘ bes" RS"h ROU 
0 ; FOR CONDX_E. 
: : OUTPUT PARAMETERS: 
6 NONE 
; 490 ; IMPLICIT OUTPUTS: 
0 492 ; NONE 
0 19% : COMPLETION CODES: 
; 196 EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
638 SIDE EFFECTS: 
3 ; SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 


(VTA RSB) IF ERROR ENCOUNTERED. | 


VFY_CLEANUP: : 
RSB 


: RETURN TO CALLER 
END | 


_ 
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Symbol table 


SSSCHARSS 
SSSCOND_A 
SSSSTRINGS 
seeg neWene 
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PRIV_ARGS 
PROCESS_ERR 
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ATSSS99.mAR: 1 
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, Fs 
SATSSS53 SATS SYSTEM SERVICE TESTS $SETEF (SUCC oj i 38¢ 80 a 1S 38 Paacyes Be 
Psect synopsis SEP=1 2:1 UETPSY SRC JSA 


desw ees esos ec eos a 


! Psect synopsis 3 


p altars SS 


PSECT name Allocation PSECT No. Attributes 


$0008 ( - 0 ( -) NOPIC USR ABS LCL oe NOEXE NORD 
SABSS 0 ( -» 01 -) NOPIC USR CON ABS LCL NOSHR EXE RD 
RODATA 0 8 .- Sie ¢ ( ¢° NOPIC USR CON REL LCL NOSHR NOEXE RD 
RWDATA 0000 of ( 136°? ( -» NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATSSS53 00004 ( 1030.) 4 ( 4.) NOPIC USR CON’ REL LCL NOSHR EXE RD 
gere enw en ee eens eee r renew e } 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.07 99:00:00 .56 
zonnene processing HT Bo: bbe ee 83 88 06 «8 
Syabol table sort am 09: aie 00:00:00-42 
Symbol table output 18 00:00: 0.07 0:00:00-07 
Psect synopsis output 0:00:00.03 0:00:00.03 
Cross-reference output Bs Sh By 0:00:00.00 
Assembler run totals 49 0:00:08.2 00:00:16.16 


The working set Limit was 1500 pages. 
28587 bytes (56 pages) of virtual memory were used to buffer the intermediate c 
There were 20 pages of symbol table space allocated to hold 295 non-local and 53° lecol symbols. 
509 source lines were read in Pass 1, producing 22 object records in Pass 2. 
pages of virtual memory were used to define 26 macros. 


Sa Re eee eR eR ee OO S$ 


Macro Library name Macros defined 


$35 2$0uAs8: SHRLIB) a5 MLB; 1 
- 5>$DUA28:CSYS.OBJJLIB.MLB; 1 

55$DUA28: Syst IBISTARLET. MLB; 2 1 
TOTALS ‘all libraries) 2 
620 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:SATSSS53/0BJ=0BJ$:SATSSS53 MSRC$:SATSSS53/UPDATE=(ENHS: SATSSS53) *EXECMLS/LIB*+SHRLIBS:UETP/LIB 


SSaYesso9. mans 1 sig 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
_ NOVEC LONG 
WRT NOVEC LONG 

UR NOVEC BYTE 


a 


17 
(1) 
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